﻿Imports System.Linq
Imports System
Imports System.Collections.Generic
Imports System.Collections.ObjectModel
Imports System.Collections.Specialized
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Windows.Data
Imports PTIC_GestionBDD

Namespace ViewModels
    Public Class ViewModelCmdEncoursCorresp
        Inherits ViewModels.ViewModelCommand

#Region "Variables privées"
        Private _model As Model
#End Region

#Region "Constructeur"
        Public Sub New(ByVal Model As Model, ByVal DisplayName As String, ByVal Command As ICommand)
            MyBase.New(DisplayName, Command)
            _model = Model
        End Sub
#End Region

#Region "Propriétés"
        Public ReadOnly Property VariablesEntreeEncours() As Dictionary(Of String, Correspondance)
            Get
                Dim a As Object = _model.Univers.listeTraitements.getTraitTbleEncours.ListeChampsSortie
                Return _model.Univers.listeTraitements.getTraitTbleEncours.ListeChampsSortie
            End Get
        End Property
        Public ReadOnly Property VariablesEntreeBase() As Dictionary(Of String, Correspondance)
            Get
                If Application.IsInDesignMode Then MsgBox("En mode design")
                Return _model.Univers.listeTraitements.getTraitTbleEncours.mapEntree
            End Get
        End Property
#End Region

    End Class
End Namespace
